home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / bach2.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  944 b   |  37 lines
  1. 'Thanks to BJ Gleason for PBASIC21 !
  2. 'Transposed by,..
  3. ' John Fraser 76256,356
  4. cls
  5. locate 4,8
  6. print " Bach Minuet "
  7. box 3,5,5,31,1
  8. print ""
  9. print ""
  10. for I=1 to 65
  11. read a
  12. read b
  13. c = b/3 'the "3" controls tempo
  14. sound a,c
  15. next I
  16. ' One data statement per measure
  17. ' Second Number in date statement = measure
  18. ' Example 430 = Measure 3
  19. 410data 41,50,52,25,54,25,56,25,57,25
  20. 420data 41,50,52,50,52,50
  21. 430data 60,50,57,25,41,25,60,25,14,25
  22. 440data 62,50,52,50,52,50
  23. 450data 57,50,41,25,57,25,56,25,54,25
  24. 460data 56,50,57,25,56,25,54,25,52,25
  25. 470data 51,50,52,25,54,25,56,25,54,25
  26. 480data 56,50,54,100
  27. 490data 41,50,52,25,54,25,56,25,57,25
  28. 500data 41,50,52,50,52,50
  29. 510data 60,50,57,25,41,25,60,25,14,25
  30. 520data 62,50,52,50,52,50
  31. 530data 57,50,41,25,57,25,56,25,54,25
  32. 540data 56,50,57,25,56,25,54,25,52,25
  33. 550data 54,50,56,25,54,25,52,25,51,25
  34. 560data 52,200
  35. 1000data 999,999
  36. 2000if isrun then run "menu" else system
  37. ə